www.gusucode.com > AspFaq在线帮助系统 V1.0 > AspFaq在线帮助系统 V1.0\code\List.asp

    <!--#Include file="Include.asp"-->
<%
sqlstr="select * from [Templet] where Templet_Type=2"
rs.open sqlstr,conn,1,3
If Not rs.eof Then
  Templet_Content=rs("Templet_Content")
Else
  rs.close
  response.Write("默认首页模板出错！")
  response.End()
End If
rs.close
id=clng(request.QueryString("id"))
If id=0 Then
  sqlstr="select top 1 * from [Helps_Category] where Helps_Category_Show=0 order by Helps_Category_Order desc,Helps_Category_Id asc"
Else
  sqlstr="select * from [Helps_Category] where Helps_Category_Show=0 and Helps_Category_Id=" & id
End If
rs.open sqlstr,conn,1,3
If Not rs.eof Then
  dim Helps_Category_Name
  id=rs("Helps_Category_Id")
  Helps_Category_Name=rs("Helps_Category_Name")
Else
  Call ShowErr("分类未找到！","Index.asp")
End If
rs.close
If Site_Type=1 Then
  response.Redirect("Category_"&id&".html")
  response.End()
End If
Templet_Content=Templet_ChangeAll(Templet_Content,2)
Templet_Content=Templet_ChangeLists(Templet_Content)
response.Write(Templet_Content)
Session.CodePage=936
%>